﻿Module buscarPathPc
    Public Function mPath() As String
        Dim nombreMaquina As String = ""
        Dim devuelve As String
        nombreMaquina = LCase(My.Computer.Name)

        'devuelve = My.Computer.FileSystem.CurrentDirectory + "funciones" 'System.AppDomain.CurrentDomain.BaseDirectory
        'Return devuelve

        Select Case nombreMaquina
            Case "pc-migue"
                devuelve = "C:\Proyecto_hc_codeplex\schc\SCHC\SCHC\Funciones"
            Case "mike-pc"
                devuelve = "C:\Proyecto_hc_Codeplex\schc\SCHC\SCHC\Funciones"
            Case "mike-2013"
                devuelve = "C:\Documents and Settings\midiaz\Escritorio\SCHC\SCHC\Funciones"
            Case "win-765m87fpsb4"
                devuelve = "C:\Windows\System32\schc-ar"
            Case "notebook-mia"
                devuelve = "C:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2010\Projects\SCHC\SCHC\Funciones"
            Case "com165"
                devuelve = "c:\windows\System32\schc-ar"
            Case "7e6bf41a9f594d2"
                devuelve = "C:\users\Administrador\documents\Visual Studio 2010\Projects\SCHC\SCHC\Funciones"
            Case "asito-pc"
                devuelve = "C:\Users\asito\Documents\Visual Studio 2010\Projects\Codepex\SCHC\Funciones"
            Case "com268"
                devuelve = "c:\windows\System32\schc-ar"
            Case "patroclo"
                devuelve = "c:\windows\System32\schc-ar"
            Case Else
                devuelve = "C:\Users\asito\Documents\Visual Studio 2010\Projects\SCHC\SCHC\Funciones"
        End Select

        Return devuelve
    End Function

    Public Function nombreEquipo() As String
        nombreEquipo = LCase(My.Computer.Name)
    End Function
End Module
